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400 Atrium— Otm Tandy Cantar, Fort Worth, Taxaa 76102 


Problem 

After error code 61 has occurred there is not a way to correct the problem. 


Solution 

Attached is a progarm to fix the index in Accounts Payable if an error code 
61 has occurred. Try the change in Bulletin 4505-2 on backups, then mail 
out this program. 

PROCEDURE FOR RE-INDEXING APS - (26-4505) 

1. Type, BASIC -F:3 and press ENTER 

2. Type in the following program. 


See next page for the program 
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200(30 ZN-VN:ZD“VD 
20010 VN-l:VT-0:VD-0 
20020 FOR W9=0 TO ZN-1 
20030 P(W9,0)=-0 : P(W9,l)-0 
20040 NEXT 

20050 FOR ZZ-1 TO ZN-1 
20060 GET 2,ZZ 
20070 W=CVI(V0$) 

20080 V$(1)-VF$(1) 

20090 GOSUB 1700 

20100 VT-VT+1:VN-VN+1 

20110 NEXT ZZ 

20120 IF ZD-0 THEN 1000 

20130 CLOSE 1 

20140 OPEN"I",l,VP$ 

20150 FOR W9-1 TO 23 
20160 INPUT#1,XX! 

20170 NEXT 

20180 FOR W9=l TO VN-1 
20190 INPUT#1,X1,X2 
20200 IF XI>0 THEN 20280 
20210 VL-ABS(Xl) 

20220 FOR W8-0 TO 1 
20230 FOR W7-1 TO VN-1 

20240 IF P(W7,W8)-VL THEN P(W7,W8)—VL :W7-VN-1 

20250 NEXT W7,W8 

20260 VD=VD+1:VT-VT-1 

20270 IF VD-ZD THEN W9-VN-1 

20280 NEXT W9 

20290 GOTO 1000 

3. Type, SAVE"RECOVER/ASC",A and press <ENTER> 

4. Type, LOAD "APS/BAS" and press <ENTER> 

5. Type, MERGE "RECOVER/ASC" and press <ENTER> 

6. Type, RUN and press <ENTER> 

7. Enter the password. At the Main Menu, press <BREAK>. 

8. Type, GOTO 20000 and press <ENTER> 

The recovery process will be completed and then return to the Main Menu. 
Press Fl to exit the program. 








